perm filename U.F4[1,LCS] blob sn#573304 filedate 1981-03-12 generic text, type T, neo UTF8
1	FORMAT(' TYPE FILE NAME  '$)
2	FORMAT(A5)
3	FORMAT(1X,A3,' TOTAL=',F9.2)
4	FORMAT(A1,A5,A1,F)
	MM=' '
5	TYPE 1
	ACCEPT 2,NAM
	CALL IFILE(1,NAM)
	A=0
6	READ(1,4,END=100)J,K,L,X
	IF(K.NE.-23152926248)GO TO 6
	A=A+X
	GO TO 6
100	TYPE 3,NAM,A
	TYPE 2,MM
	TYPE 2,MM
	GO TO 5
	END